home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t1.d64 / frosty.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  9KB  |  326 lines
  1. 10 POKE53281,0:POKE53280,0:POKE646,1
  2. 20 PRINT"[147]FROSTY THE SNOW MAN"
  3. 30 PRINT"ARRANGEMENT BY"
  4. 40 PRINT"HOWARD STRASBERG"
  5. 110 L1=54272:L2=54279:L3=54286
  6. 120 H1=L1+1:H2=L2+1:H3=L3+1
  7. 130 V1=L1+4:V2=L2+4:V3=L3+4
  8. 140 POKE54296,15
  9. 150 POKEV1+1,9:POKEV1+2,16
  10. 160 POKEV2+1,96:POKEV2+2,36
  11. 170 POKEV3+1,102:POKEV3+2,0
  12. 200 POKEV1,16:POKEV2,16:POKEV3,16
  13. 210 READS:IFS=-1THEN290
  14. 220 READX1,Y1,X2,Y2,X3,Y3
  15. 230 IF X1 THEN POKEH1,X1:POKEL1,Y1:POKEV1,17
  16. 240 IF X2 THEN POKEH2,X2:POKEL2,Y2:POKEV2,17
  17. 250 IF X3 THEN POKEH3,X3:POKEL3,Y3:POKEV3,17
  18. 260 FORG=1TOINT(S/2.45):NEXTG
  19. 270 GOTO200
  20. 290 FORQ=54272TO54296:POKEQ,0:NEXT:GOTO1800
  21. 300 REM SET 1
  22. 310 DATA 512,25,177,8,147,0,0
  23. 315 DATA 512,12,216,10,205,0,0
  24. 320 DATA 768,21,154,12,216,10,205
  25. 325 DATA 256,22,227,0,0,0,0
  26. 330 DATA 512,25,177,10,205,0,0
  27. 335 DATA 1024,34,75,15,70,12,216
  28. 340 DATA 256,32,94,10,205,0,0
  29. 345 DATA 256,34,75,0,0,0,0
  30. 350 DATA 512,38,126,11,114,0,0
  31. 355 DATA 512,34,75,17,37,14,107
  32. 360 DATA 512,32,94,0,0,0,0
  33. 365 DATA 512,28,214,11,114,0,0
  34. 370 DATA 768,25,177,10,205,0,0
  35. 375 DATA 256,17,37,0,0,0,0
  36. 380 DATA 512,12,216,0,0,0,0
  37. 385 DATA 256,32,94,10,205,0,0
  38. 390 DATA 256,34,75,0,0,0,0
  39. 395 DATA 512,38,126,11,114,0,0
  40. 400 DATA 512,34,75,17,37,14,107
  41. 405 DATA 512,32,94,0,0,0,0
  42. 410 DATA 256,28,214,11,114,0,0
  43. 415 DATA 256,28,214,0,0,0,0
  44. 420 DATA 256,25,177,17,37,10,205
  45. 425 DATA 512,34,75,0,0,0,0
  46. 430 DATA 768,21,154,17,37,12,216
  47. 435 DATA 256,25,177,0,0,0,0
  48. 440 DATA 256,28,214,0,0,0,0
  49. 441 REM START DIFFERENT REPEAT OFF
  50. 445 DATA 512,25,177,16,47,9,159
  51. 450 DATA 512,22,227,0,0,0,0
  52. 455 DATA 512,21,154,16,47,12,216
  53. 460 DATA 512,22,227,0,0,0,0
  54. 465 DATA 1536,25,177,17,37,12,216
  55. 470 REM START SET 2
  56. 475 DATA 512,25,177,8,147,0,0
  57. 480 DATA 512,12,216,10,205,0,0
  58. 485 DATA 768,21,154,12,216,10,205
  59. 490 DATA 256,22,227,0,0,0,0
  60. 495 DATA 512,25,177,10,205,0,0
  61. 500 DATA 1024,34,75,15,70,12,216
  62. 505 DATA 256,32,94,10,205,0,0
  63. 510 DATA 256,34,75,0,0,0,0
  64. 515 DATA 512,38,126,11,114,0,0
  65. 520 DATA 512,34,75,17,37,14,107
  66. 525 DATA 512,32,94,0,0,0,0
  67. 530 DATA 512,28,214,11,114,0,0
  68. 535 DATA 768,25,177,10,205,0,0
  69. 540 DATA 256,17,37,0,0,0,0
  70. 545 DATA 512,12,216,0,0,0,0
  71. 550 DATA 256,32,94,10,205,0,0
  72. 555 DATA 256,34,75,0,0,0,0
  73. 560 DATA 512,38,126,11,114,0,0
  74. 565 DATA 512,34,75,17,37,14,107
  75. 570 DATA 512,32,94,0,0,0,0
  76. 575 DATA 256,28,214,11,114,0,0
  77. 580 DATA 256,28,214,0,0,0,0
  78. 585 DATA 256,25,177,17,37,10,205
  79. 590 DATA 512,34,75,0,0,0,0
  80. 595 DATA 768,21,154,17,37,12,216
  81. 600 DATA 256,25,177,0,0,0,0
  82. 605 DATA 256,28,214,0,0,0,0
  83. 606 REM START DIFFERENT REPEAT OFF
  84. 610 DATA 512,25,177,17,37,9,159
  85. 615 DATA 512,22,227,0,0,0,0
  86. 620 DATA 512,21,154,16,47,12,216
  87. 625 DATA 512,19,63,11,114,0,0
  88. 630 DATA 1536,17,37,10,205,0,0
  89. 632 REM START SET 3
  90. 635 DATA 512,17,37,8,147,0,0
  91. 640 DATA 512,28,214,11,114,0,0
  92. 645 DATA 512,28,214,11,114,0,0
  93. 650 DATA 512,34,75,14,107,0,0
  94. 655 DATA 512,34,75,14,107,0,0
  95. 660 DATA 512,32,94,12,216,0,0
  96. 665 DATA 512,28,214,11,114,0,0
  97. 670 DATA 512,25,177,10,205,0,0
  98. 675 DATA 512,21,154,12,216,0,0
  99. 680 DATA 512,22,227,9,159,0,0
  100. 685 DATA 512,28,214,11,114,0,0
  101. 690 DATA 512,25,177,10,205,0,0
  102. 695 DATA 512,22,227,9,159,0,0
  103. 700 DATA 1024,21,154,8,147,0,0
  104. 705 DATA 512,8,147,0,0,0,0
  105. 710 DATA 512,21,154,0,0,0,0
  106. 715 DATA 512,19,63,16,47,12,216
  107. 720 DATA 512,19,63,0,0,0,0
  108. 725 DATA 512,25,177,9,159,0,0
  109. 730 DATA 512,25,177,0,0,0,0
  110. 735 DATA 512,32,94,12,216,0,0
  111. 740 DATA 512,32,94,0,0,0,0
  112. 745 DATA 512,38,126,16,47,13,156
  113. 750 DATA256,38,126,0,0,0,0
  114. 755 DATA 256,32,94,0,0,0,0
  115. 760 DATA 512,38,126,17,37,14,107
  116. 765 DATA 512,34,75,0,0,0,0
  117. 770 DATA 512,32,94,17,37,12,32
  118. 775 DATA 512,28,214,0,0,0,0
  119. 780 DATA 1024,25,177,16,47,12,216
  120. 785 DATA 1024,25,177,22,227,16,47
  121. 786 REM START SET 4
  122. 790 DATA 512,25,177,8,147,0,0
  123. 795 DATA 512,12,216,10,205,0,0
  124. 800 DATA 768,21,154,12,216,10,205
  125. 805 DATA 256,22,227,0,0,0,0
  126. 810 DATA 512,25,177,10,205,0,0
  127. 815 DATA 1024,34,75,15,70,12,216
  128. 820 DATA 256,32,94,10,205,0,0
  129. 825 DATA 256,34,75,0,0,0,0
  130. 830 DATA 512,38,126,11,114,0,0
  131. 835 DATA 512,34,75,17,37,14,107
  132. 840 DATA 512,32,94,0,0,0,0
  133. 845 DATA 512,28,214,11,114,0,0
  134. 850 DATA 768,25,177,10,205,0,0
  135. 855 DATA 256,17,37,0,0,0,0
  136. 860 DATA 512,12,216,0,0,0,0
  137. 865 DATA 256,32,94,10,205,0,0
  138. 867 DATA 256,34,75,0,0,0,0
  139. 870 DATA 512,38,126,11,114,0,0
  140. 875 DATA 512,34,75,17,37,14,107
  141. 880 DATA 512,32,94,0,0,0,0
  142. 885 DATA 256,28,214,11,114,0,0
  143. 890 DATA 256,28,214,0,0,0,0
  144. 895 DATA 256,25,177,17,37,10,205
  145. 900 DATA 512,34,75,0,0,0,0
  146. 905 DATA 768,21,154,17,37,12,216
  147. 910 DATA 256,25,177,0,0,0,0
  148. 915 DATA 256,28,214,0,0,0,0
  149. 920 REM START DIFFERENT REPEAT OFF
  150. 925 DATA 512,25,177,17,37,9,159
  151. 930 DATA 512,22,227,0,0,0,0
  152. 935 DATA 512,21,154,16,47,12,216
  153. 940 DATA 512,19,63,11,114,0,0
  154. 945 DATA 1536,17,37,10,205,0,0
  155. 950 DATA 512,25,177,8,147,0,0
  156. 955 DATA 512,12,216,10,205,0,0
  157. 960 DATA 768,21,154,12,216,10,205
  158. 965 DATA 256,22,227,0,0,0,0
  159. 970 DATA 512,25,177,10,205,0,0
  160. 975 DATA 1024,34,75,15,70,12,216
  161. 980 DATA 256,32,94,10,205,0,0
  162. 985 DATA 256,34,75,0,0,0,0
  163. 990 DATA 512,38,126,11,114,0,0
  164. 995 DATA 512,34,75,17,37,14,107
  165. 1000 DATA 512,32,94,0,0,0,0
  166. 1005 DATA 512,28,214,11,114,0,0
  167. 1010 DATA 768,25,177,10,205,0,0
  168. 1015 DATA 256,17,37,0,0,0,0
  169. 1020 DATA 512,12,216,0,0,0,0
  170. 1025 DATA 256,32,94,10,205,0,0
  171. 1030 DATA 256,34,75,0,0,0,0
  172. 1035 DATA 512,38,126,11,114,0,0
  173. 1040 DATA 512,34,75,17,37,14,107
  174. 1045 DATA 512,32,94,0,0,0,0
  175. 1050 DATA 256,28,214,11,114,0,0
  176. 1055 DATA 256,28,214,0,0,0,0
  177. 1060 DATA 256,25,177,17,37,10,205
  178. 1065 DATA 512,34,75,0,0,0,0
  179. 1070 DATA 768,21,154,17,37,12,216
  180. 1075 DATA 256,25,177,0,0,0,0
  181. 1080 DATA 256,28,214,0,0,0,0
  182. 1085 REM START DIFFERENT REPEAT OFF
  183. 1090 DATA 512,25,177,16,47,9,159
  184. 1095 DATA 512,22,227,0,0,0,0
  185. 1100 DATA 512,21,154,16,47,12,216
  186. 1105 DATA 512,22,227,0,0,0,0
  187. 1110 DATA 1536,25,177,17,37,12,216
  188. 1115 REM START SET 2
  189. 1120 DATA 512,25,177,8,147,0,0
  190. 1125 DATA 512,12,216,10,205,0,0
  191. 1130 DATA 768,21,154,12,216,10,205
  192. 1135 DATA 256,22,227,0,0,0,0
  193. 1140 DATA 512,25,177,10,205,0,0
  194. 1145 DATA 1024,34,75,15,70,12,216
  195. 1150 DATA 256,32,94,10,205,0,0
  196. 1155 DATA 256,34,75,0,0,0,0
  197. 1160 DATA 512,38,126,11,114,0,0
  198. 1165 DATA 512,34,75,17,37,14,107
  199. 1170 DATA 512,32,94,0,0,0,0
  200. 1175 DATA 512,28,214,11,114,0,0
  201. 1180 DATA 768,25,177,10,205,0,0
  202. 1185 DATA 256,17,37,0,0,0,0
  203. 1190 DATA 512,12,216,0,0,0,0
  204. 1195 DATA 256,32,94,10,205,0,0
  205. 1200 DATA 256,34,75,0,0,0,0
  206. 1205 DATA 512,38,126,11,114,0,0
  207. 1210 DATA 512,34,75,17,37,14,107
  208. 1215 DATA 512,32,94,0,0,0,0
  209. 1220 DATA 256,28,214,11,114,0,0
  210. 1225 DATA 256,28,214,0,0,0,0
  211. 1230 DATA 256,25,177,17,37,10,205
  212. 1235 DATA 512,34,75,0,0,0,0
  213. 1240 DATA 768,21,154,17,37,12,216
  214. 1245 DATA 256,25,177,0,0,0,0
  215. 1250 DATA 256,28,214,0,0,0,0
  216. 1255 REM START DIFFERENT REPEAT OFF
  217. 1260 DATA 512,25,177,17,37,9,159
  218. 1265 DATA 512,22,227,0,0,0,0
  219. 1270 DATA 512,21,154,16,47,12,216
  220. 1275 DATA 512,19,63,11,114,0,0
  221. 1280 DATA 1536,17,37,10,205,0,0
  222. 1285 REM START SET 3
  223. 1290 DATA 512,17,37,8,147,0,0
  224. 1295 DATA 512,28,214,11,114,0,0
  225. 1300 DATA 512,28,214,11,114,0,0
  226. 1305 DATA 512,34,75,14,107,0,0
  227. 1310 DATA 512,34,75,14,107,0,0
  228. 1315 DATA 512,32,94,12,216,0,0
  229. 1320 DATA 512,28,214,11,114,0,0
  230. 1325 DATA 512,25,177,10,205,0,0
  231. 1330 DATA 512,21,154,12,216,0,0
  232. 1335 DATA 512,22,227,9,159,0,0
  233. 1340 DATA 512,28,214,11,114,0,0
  234. 1345 DATA 512,25,177,10,205,0,0
  235. 1350 DATA 512,22,227,9,159,0,0
  236. 1355 DATA 1024,21,154,8,147,0,0
  237. 1360 DATA 512,8,147,0,0,0,0
  238. 1365 DATA 512,21,154,0,0,0,0
  239. 1370 DATA 512,19,63,16,47,12,216
  240. 1375 DATA 512,19,63,0,0,0,0
  241. 1380 DATA 512,25,177,9,159,0,0
  242. 1385 DATA 512,25,177,0,0,0,0
  243. 1390 DATA 512,32,94,12,216,0,0
  244. 1395 DATA 512,32,94,0,0,0,0
  245. 1400 DATA 512,38,126,16,47,13,156
  246. 1405 DATA256,38,126,0,0,0,0
  247. 1410 DATA 256,32,94,0,0,0,0
  248. 1415 DATA 512,38,126,17,37,14,107
  249. 1420 DATA 512,34,75,0,0,0,0
  250. 1425 DATA 512,32,94,17,37,12,32
  251. 1430 DATA 512,28,214,0,0,0,0
  252. 1435 DATA 1024,25,177,16,47,12,216
  253. 1440 DATA 1024,25,177,22,227,16,47
  254. 1445 REM START SET 4
  255. 1450 DATA 512,25,177,8,147,0,0
  256. 1455 DATA 512,12,216,10,205,0,0
  257. 1460 DATA 768,21,154,12,216,10,205
  258. 1465 DATA 256,22,227,0,0,0,0
  259. 1470 DATA 512,25,177,10,205,0,0
  260. 1475 DATA 1024,34,75,15,70,12,216
  261. 1480 DATA 256,32,94,10,205,0,0
  262. 1485 DATA 256,34,75,0,0,0,0
  263. 1490 DATA 512,38,126,11,114,0,0
  264. 1495 DATA 512,34,75,17,37,14,107
  265. 1500 DATA 512,32,94,0,0,0,0
  266. 1505 DATA 512,28,214,11,114,0,0
  267. 1510 DATA 768,25,177,10,205,0,0
  268. 1515 DATA 256,17,37,0,0,0,0
  269. 1520 DATA 512,12,216,0,0,0,0
  270. 1525 DATA 256,32,94,10,205,0,0
  271. 1527 DATA 256,34,75,0,0,0,0
  272. 1530 DATA 512,38,126,11,114,0,0
  273. 1535 DATA 512,34,75,17,37,14,107
  274. 1540 DATA 512,32,94,0,0,0,0
  275. 1545 DATA 256,28,214,11,114,0,0
  276. 1550 DATA 256,28,214,0,0,0,0
  277. 1555 DATA 256,25,177,17,37,10,205
  278. 1560 DATA 512,34,75,0,0,0,0
  279. 1565 DATA 768,21,154,17,37,12,216
  280. 1570 DATA 256,25,177,0,0,0,0
  281. 1575 DATA 256,28,214,0,0,0,0
  282. 1580 REM START DIFFERENT REPEAT OFF
  283. 1585 DATA 512,25,177,17,37,9,159
  284. 1590 DATA 512,22,227,0,0,0,0
  285. 1595 DATA 512,21,154,16,47,12,216
  286. 1600 DATA 512,19,63,11,114,0,0
  287. 1605 DATA 1536,17,37,10,205,0,0
  288. 1610 DATA 256,25,177,8,147,0,0
  289. 1615 DATA 256,25,177,0,0,0,0
  290. 1620 DATA 512,25,177,12,216,10,205
  291. 1625 DATA 512,25,177,0,0,0,0
  292. 1630 DATA 512,25,177,12,216,10,205
  293. 1635 DATA 256,28,214,8,147,0,0
  294. 1640 DATA 256,25,177,0,0,0,0
  295. 1645 DATA 512,25,177,12,216,10,205
  296. 1650 DATA 512,25,177,0,0,0,0
  297. 1655 DATA 512,25,177,12,216,10,205
  298. 1660 DATA512,28,214,8,147,0,0
  299. 1665 DATA512,25,177,12,216,10,205
  300. 1670 DATA 512,21,154,0,0,0,0
  301. 1675 DATA512,25,177,12,216,10,205
  302. 1680 DATA 1536,19,63,8,23,0,0
  303. 1685 DATA 512,12,216,11,114,0,0
  304. 1690 DATA 256,25,177,9,159,0,0
  305. 1695 DATA 256,25,177,0,0,0,0
  306. 1700 DATA 512,25,177,12,216,11,114
  307. 1705 DATA 512,25,177,0,0,0,0
  308. 1710 DATA 512,25,177,12,216,11,114
  309. 1715 DATA 256,28,214,9,159,0,0
  310. 1720 DATA 256,25,177,0,0,0,0
  311. 1725 DATA 512,25,177,12,216,11,114
  312. 1730 DATA 512,25,177,0,0,0,0
  313. 1735 DATA 512,25,177,12,216,11,114
  314. 1740 DATA 256,25,177,8,23,0,0
  315. 1745 DATA 256,25,177,0,0,0,0
  316. 1750 DATA 512,25,177,12,216,11,114
  317. 1755 DATA 512,28,214,0,0,0,0
  318. 1760 DATA 512,32,94,22,227,9,159
  319. 1765 DATA 1024,34,75,21,154,9,147
  320. 1770 DATA 512,0,0,12,216,0,0
  321. 1775 DATA 512,0,0,8,147,0,0
  322. 1780 DATA -1
  323. 1800 POKE53281,6:POKE53280,14:POKE646,14
  324. 1805 PRINT"[147]RUN"
  325. 1810 PRINT"":END
  326.